$PBExportHeader$w_tipos_per_lect.srw
forward
global type w_tipos_per_lect from w_abm_detalle
end type
end forward

global type w_tipos_per_lect from w_abm_detalle
end type
global w_tipos_per_lect w_tipos_per_lect

event ue_iniciar;call super::ue_iniciar;/*
	Si la accion es modificacion, algunos campos de la dw quedan no editables, determinarlo por el tag de la dw
	PROTECT=S
	Si el tipo de operacion es modificacion
*/

Integer	ll_f,	ll_cant
String	ls_col

IF at_op.Accion = 'M' THEN
	ll_cant = Integer(dw_1.Describe("Datawindow.Column.Count"))
	
	FOR ll_f = 1 TO ll_cant
		ls_col = dw_1.Describe("#" + String(ll_f) + ".Name")
		IF dw_1.Describe(ls_col + ".Tag") = "PROTECT=S" THEN
			// Poner columna no editable 
			dw_1.uof_edicion(ll_f, 'N')
		END IF
	NEXT
END IF


end event

on w_tipos_per_lect.create
call super::create
end on

on w_tipos_per_lect.destroy
call super::destroy
end on

